home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Bonus.dir / 00017.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  461 b   |  21 lines
  1. on exitFrame
  2.   cursor([cast "curs", cast "mask"])
  3.   if the movieTime of sprite 8 = the duration of member the castNum of sprite 8 then
  4.     cursor(-1)
  5.     set the visible of sprite 8 to 0
  6.     set the movieRate of sprite 8 to 0
  7.     go("sala")
  8.     puppetSound(0)
  9.     set the movieRate of sprite 8 to 1
  10.   end if
  11.   go(the frame)
  12. end
  13.  
  14. on mouseUp
  15.   cursor(-1)
  16.   set the movieRate of sprite 8 to 0
  17.   go("sala")
  18.   puppetSound(0)
  19.   set the movieRate of sprite 8 to 1
  20. end
  21.